﻿Imports StartFrame.DA

Partial Public Class Ayuda
    Inherits System.Web.UI.Page

    Private Sub Ayuda_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

        Dim aParametros As New ArrayList()
        Dim dsAyuda As DataSet

        Dim iNumlabel As Integer = 0
        
        Try
            If Not Session("Programa") Is Nothing Then
                aParametros.Add(Session("Programa"))
                aParametros.Add(Session("Programa"))
            End If

            dsAyuda = Sql.ExecSPDS(ConnectionString, "wldiccionario_ayuda", aParametros, True)

            Try
                'Presentar en la pagina la info!
                lblSubsistema.Text = "Subsistema de " & dsAyuda.Tables(0).Rows(0)("nm_subsistema").ToString.Substring(0, 1).ToUpper & dsAyuda.Tables(0).Rows(0)("nm_subsistema").ToString.Substring(1).ToLower
                lblTipoDescripcion.Text = dsAyuda.Tables(0).Rows(0)("tipo_descripcion")
                lblPrograma.Text = dsAyuda.Tables(0).Rows(0)("de_programa")
                lblClase.Text = dsAyuda.Tables(0).Rows(0)("nm_clase")
                lblAyudaDescripcion.Text = dsAyuda.Tables(0).Rows(0)("de_ayuda")

            Catch ex As Exception
                'Fallo el copete (?)
            End Try

            Try
                lblTabla.Text = Trim(dsAyuda.Tables(1).Rows(0)("nu_orden")) + ".- " + Trim(dsAyuda.Tables(1).Rows(0)("de_relacion")) + ": " + Trim(dsAyuda.Tables(1).Rows(0)("nm_tabla"))
                lblTablaDescripcion.Text = dsAyuda.Tables(1).Rows(0)("de_tabla")
            Catch ex As Exception
                'Fallo el subtitulo
            End Try

            Try
                For Each row In dsAyuda.Tables(2).Rows

                    If row("nm_tabla").ToString.ToUpper() = Trim(dsAyuda.Tables(1).Rows(0)("nm_tabla").ToString.ToUpper()) Then

                        iNumlabel += 1

                        Dim label99 As Label = New Label()
                        Dim label98 As Label = New Label()

                        Dim spacer1 As LiteralControl = New LiteralControl("<br />")
                        Dim spacer2 As LiteralControl = New LiteralControl("<br />")

                        'Inserta Labels
                        label99.ID = "lblTabla" + Str(iNumlabel)
                        label99.Text = Trim(row("nm_campo"))
                        label99.CssClass = "campo"

                        PlaceHolder1.Controls.Add(label99)
                        PlaceHolder1.Controls.Add(spacer1)

                        label98.ID = "lblTablaDescripcion" + Str(iNumlabel)
                        label98.Text = Trim(row("de_campo"))

                        PlaceHolder1.Controls.Add(label98)
                        PlaceHolder1.Controls.Add(spacer2)

                    End If
                Next
            Catch ex As Exception
                'Fallo el contenido dinamico
            End Try

        Catch ex As Exception
            'Falló :P
        End Try

    End Sub

    ''' <summary>
    ''' Esta página muestra documentación de ayuda en línea que obtiene del diccionario de datos del sistema.
    ''' </summary>
    ''' <param name="sender">Objeto emisor del evento.</param>
    ''' <param name="e">Argumentos pasados por parámetro.</param>
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Overloads Sub OnPreInit() Handles Me.PreInit

        'Aplicacion de Tema
        If Not Session("Tema") Is Nothing Then
            Page.Theme = Session("Tema").ToString
        End If
    End Sub

End Class